home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 2 / ETO Development Tools 2.iso / Essentials / Developer Essentials Nov 90 / Apple II / Apple.II.partition / Tools / DTS.Samples / SC24Teach / Teach.p / Teach.p < prev    next >
Encoding:
Text File  |  1990-06-25  |  1.5 KB  |  80 lines  |  [TEXT/pdos]

  1. {**********************************************************************
  2. {*
  3. {* Teach -- Version 3.0  (Main Program)
  4. {*
  5. {* Copyright (c)
  6. {* Apple Computer, Inc.  1986-1989
  7. {* All Rights Reserved.
  8. {*
  9. {* Developer Technical Support Apple II Sample Code
  10. {*
  11. {* This file contains the Teach program.
  12. {*
  13. {**********************************************************************}
  14. {$R-}
  15.  
  16. program Teach;
  17.  
  18. USES 
  19.         types,
  20.         Quickdraw,
  21.         fonts,
  22.         memory,
  23.         IntMath,
  24.         events,
  25.         prodos,
  26.         locator,
  27.         controls,
  28.         windows,
  29.         lists,
  30.         scrap,
  31.         dialogs,
  32.         menus,
  33.         desk,
  34.         STDFile,
  35.         QDAUX, 
  36.         print,
  37.         miscTool,
  38.         lineEdit,
  39.         GSOS,
  40.         resources,
  41.         
  42.         uEvent,             {HodgePodge Code Units}
  43.         uMenu, 
  44.         uWindow, 
  45.         uUtils,
  46.         uGlobals;
  47.  
  48. var
  49.     initRef : Ref;      { This holds the reference to the startstop record }
  50.  
  51.  
  52. PROCEDURE Debug;  INLINE $0000;
  53.  
  54.  
  55.  
  56.  
  57.  
  58. BEGIN  { of MAIN program Teach }
  59.  
  60.     { Init our globals. }
  61.     initGlobals;
  62.  
  63.     userID := MMStartup;
  64.     
  65.     { Startup the tools using the new toolbox call }
  66.     initRef := StartupTools(userID,refIsResource,Ref(1));
  67.     if _toolErr = 0 then
  68.         begin
  69.             setUpMenus;     { Set up menus }
  70.             setupWindows;
  71.             InitCursor;     { Make cursor show ready }
  72.             mainEvent;      { Use application }
  73.         end;
  74.  
  75.     { Let the toolbox shutdown the tools. }
  76.     ShutDownTools(RefIsHandle,InitRef);
  77.  
  78.  
  79. END.   { of MAIN program Teach }
  80.